home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / geom / illustrator.pro < prev    next >
Text File  |  1993-01-11  |  12KB  |  873 lines
  1. %%BeginResource: procset Adobe_packedarray 2.0 0
  2. %%Title: (Packed Array Operators)
  3. %%Version: 2.0 
  4. %%CreationDate: (8/2/90) ()
  5. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  6.  
  7. userdict /Adobe_packedarray 5 dict dup begin put
  8. /initialize            % - initialize -
  9. {
  10. /packedarray where
  11.     {
  12.     pop
  13.     }
  14.     {
  15.     Adobe_packedarray begin
  16.     Adobe_packedarray
  17.         {
  18.         dup xcheck
  19.             {
  20.             bind
  21.             } if
  22.         userdict 3 1 roll put
  23.         } forall
  24.     end
  25.     } ifelse
  26. } def
  27. /terminate            % - terminate -
  28. {
  29. } def
  30. /packedarray        % arguments count packedarray array
  31. {
  32. array astore readonly
  33. } def
  34. /setpacking            % boolean setpacking -
  35. {
  36. pop
  37. } def
  38. /currentpacking        % - setpacking boolean
  39. {
  40. false
  41. } def
  42. currentdict readonly pop end
  43. %%EndResource
  44. %%BeginResource: procset Adobe_cmykcolor 1.1 0
  45. %%Title: (CMYK Color Operators)
  46. %%Version: 1.1 
  47. %%CreationDate: (1/23/89) ()
  48. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  49.  
  50. currentpacking true setpacking
  51. userdict /Adobe_cmykcolor 4 dict dup begin put
  52. /initialize            % - initialize -
  53. {
  54. /setcmykcolor where
  55.     {
  56.     pop
  57.     }
  58.     {
  59.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  60.     /_setrgbcolor
  61.         /setrgbcolor load def
  62.     /_currentrgbcolor
  63.         /currentrgbcolor load def
  64.     Adobe_cmykcolor begin
  65.     Adobe_cmykcolor
  66.         {
  67.         dup xcheck
  68.             {
  69.             bind
  70.             } if
  71.         pop pop
  72.         } forall
  73.     end
  74.     end
  75.     Adobe_cmykcolor begin
  76.     } ifelse
  77. } def
  78. /terminate            % - terminate -
  79. {
  80. currentdict Adobe_cmykcolor eq
  81.     {
  82.     end
  83.     } if
  84. } def
  85. /setcmykcolor        % cyan magenta yellow black setcmykcolor -
  86. {
  87. 1 sub 4 1 roll
  88. 3
  89.     {
  90.     3 index add neg dup 0 lt
  91.         {
  92.         pop 0
  93.         } if
  94.     3 1 roll
  95.     } repeat
  96. Adobe_cmykcolor_vars /_setrgbcolor get exec
  97. pop
  98. } def 
  99. /currentcmykcolor    % - currentcmykcolor cyan magenta yellow black
  100. {
  101. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  102. 3
  103.     {
  104.     1 sub neg 3 1 roll
  105.     } repeat
  106. 0
  107. } def
  108. currentdict readonly pop end
  109. setpacking
  110.  
  111. %%EndResource
  112. %%BeginResource: procset Adobe_cshow 1.1 0
  113. %%Title: (cshow Operator)
  114. %%Version: 1.1 
  115. %%CreationDate: (1/23/89) ()
  116. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  117.  
  118. currentpacking true setpacking
  119. userdict /Adobe_cshow 3 dict dup begin put
  120. /initialize            % - initialize -
  121. {
  122. /cshow where
  123.     {
  124.     pop
  125.     }
  126.     {
  127.     userdict /Adobe_cshow_vars 1 dict dup begin put
  128.     /_cshow        % - _cshow proc
  129.         {} def
  130.     Adobe_cshow begin
  131.     Adobe_cshow
  132.         {
  133.         dup xcheck
  134.             {
  135.             bind
  136.             } if
  137.         userdict 3 1 roll put
  138.         } forall
  139.     end
  140.     end
  141.     } ifelse
  142. } def
  143. /terminate            % - terminate -
  144. {
  145. } def
  146. /cshow                % proc string cshow -
  147. {
  148. exch
  149. Adobe_cshow_vars
  150.     exch /_cshow
  151.     exch put
  152.     {
  153.     0 0 Adobe_cshow_vars /_cshow get exec
  154.     } forall
  155. } def
  156. currentdict readonly pop end
  157. setpacking
  158.  
  159. %%EndResource
  160. %%BeginResource: procset Adobe_customcolor 1.0 0
  161. %%Title: (Custom Color Operators)
  162. %%Version: 1.0 
  163. %%CreationDate: (5/9/88) ()
  164. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  165.  
  166. currentpacking true setpacking
  167. userdict /Adobe_customcolor 5 dict dup begin put
  168. /initialize            % - initialize -
  169. {
  170. /setcustomcolor where
  171.     {
  172.     pop
  173.     }
  174.     {
  175.     Adobe_customcolor begin
  176.     Adobe_customcolor
  177.         {
  178.         dup xcheck
  179.             {
  180.             bind
  181.             } if
  182.         pop pop
  183.         } forall
  184.     end
  185.     Adobe_customcolor begin
  186.     } ifelse
  187. } def
  188. /terminate            % - terminate -
  189. {
  190. currentdict Adobe_customcolor eq
  191.     {
  192.     end
  193.     } if
  194. } def
  195. /findcmykcustomcolor    % cyan magenta yellow black name findcmykcustomcolor object
  196. {
  197. 5 packedarray
  198. }  def
  199. /setcustomcolor        % object tint setcustomcolor -
  200. {
  201. exch
  202. aload pop pop
  203. 4
  204.     {
  205.     4 index mul 4 1 roll
  206.     } repeat
  207. 5 -1 roll pop
  208. setcmykcolor
  209. } def
  210. /setoverprint        % boolean setoverprint -
  211. {
  212. pop
  213. } def
  214. currentdict readonly pop end
  215. setpacking
  216.  
  217. %%EndResource
  218. %%BeginResource: procset Adobe_IllustratorA_AI3 1.0 1
  219. %%Title: (Adobe Illustrator (R) Version 3.0 Abbreviated Prolog)
  220. %%Version: 1.0 
  221. %%CreationDate: (7/22/89) ()
  222. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  223.  
  224. currentpacking true setpacking
  225. userdict /Adobe_IllustratorA_AI3 61 dict dup begin put
  226. % initialization
  227. /initialize                % - initialize -
  228. {
  229. % 47 vars, but leave slack of 10 entries for custom Postscript fragments
  230. userdict /Adobe_IllustratorA_AI3_vars 57 dict dup begin put
  231.  
  232. % paint operands
  233. /_lp /none def
  234. /_pf {} def
  235. /_ps {} def
  236. /_psf {} def
  237. /_pss {} def
  238. /_pjsf {} def
  239. /_pjss {} def
  240. /_pola 0 def
  241. /_doClip 0 def
  242.  
  243. % paint operators
  244. /cf    currentflat def    % - cf flatness
  245.  
  246. % typography operands
  247. /_tm matrix def
  248. /_renderStart [/e0 /r0 /a0 /o0 /e1 /r1 /a1 /i0] def 
  249. /_renderEnd [null null null null /i1 /i1 /i1 /i1] def
  250. /_render -1 def
  251. /_rise 0 def
  252. /_ax 0 def            % x character spacing    (_ax, _ay, _cx, _cy follows awidthshow naming convention)
  253. /_ay 0 def            % y character spacing
  254. /_cx 0 def            % x word spacing
  255. /_cy 0 def            % y word spacing
  256. /_leading [0 0] def
  257. /_ctm matrix def
  258. /_mtx matrix def
  259. /_sp 16#020 def
  260. /_hyphen (-) def
  261. /_fScl 0 def
  262. /_cnt 0 def
  263. /_hs 1 def
  264. /_nativeEncoding 0 def
  265. /_useNativeEncoding 0 def
  266. /_tempEncode 0 def
  267. /_pntr 0 def
  268. /_tDict 2 dict def
  269.  
  270. % typography operators
  271. /Tx {} def
  272. /Tj {} def
  273.  
  274. % compound path operators
  275. /CRender {} def
  276.  
  277. % printing
  278. /_AI3_savepage {} def
  279.  
  280. % color operands
  281. /_gf null def
  282. /_cf 4 array def
  283. /_if null def
  284. /_of false def
  285. /_fc {} def
  286. /_gs null def
  287. /_cs 4 array def
  288. /_is null def
  289. /_os false def
  290. /_sc {} def
  291. /_i null def
  292. Adobe_IllustratorA_AI3 begin
  293. Adobe_IllustratorA_AI3
  294.     {
  295.     dup xcheck
  296.         {
  297.         bind
  298.         } if
  299.     pop pop
  300.     } forall
  301. end
  302. end
  303. Adobe_IllustratorA_AI3 begin
  304. Adobe_IllustratorA_AI3_vars begin
  305. newpath
  306. } def
  307. /terminate                % - terminate -
  308. {
  309. end
  310. end
  311. } def
  312. % definition operators
  313. /_                    % - _ null
  314. null def
  315. /ddef                % key value ddef -
  316. {
  317. Adobe_IllustratorA_AI3_vars 3 1 roll put
  318. } def
  319. /xput                % key value literal xput -
  320. {
  321. dup load dup length exch maxlength eq
  322.     {
  323.     dup dup load dup
  324.     length 2 mul dict copy def
  325.     } if
  326. load begin def end
  327. } def
  328. /npop                % integer npop -
  329. {
  330.     {
  331.     pop
  332.     } repeat
  333. } def
  334. % marking operators
  335. /sw                    % ax ay string sw x y 
  336. {
  337. dup length exch stringwidth
  338. exch 5 -1 roll 3 index 1 sub mul add
  339. 4 1 roll 3 1 roll 1 sub mul add
  340. } def
  341. /swj                % cx cy fillchar ax ay string swj x y
  342. {
  343. dup 4 1 roll
  344. dup length exch stringwidth 
  345. exch 5 -1 roll 3 index 1 sub mul add
  346. 4 1 roll 3 1 roll 1 sub mul add 
  347. 6 2 roll /_cnt 0 ddef
  348. {1 index eq {/_cnt _cnt 1 add ddef} if} forall pop
  349. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  350. } def
  351. /ss                    % ax ay string matrix ss -
  352. {
  353. 4 1 roll
  354.     {                % matrix ax ay char 0 0 {proc} -
  355.     2 npop 
  356.     (0) exch 2 copy 0 exch put pop
  357.     gsave
  358.     false charpath currentpoint
  359.     4 index setmatrix
  360.     stroke
  361.     grestore
  362.     moveto
  363.     2 copy rmoveto
  364.     } exch cshow
  365. 3 npop
  366. } def
  367. /jss                % cx cy fillchar ax ay string matrix jss -
  368. {
  369. 4 1 roll
  370.     {                % cx cy fillchar matrix ax ay char 0 0 {proc} -   
  371.     2 npop 
  372.     (0) exch 2 copy 0 exch put 
  373.     gsave
  374.     _sp eq 
  375.         {
  376.         exch 6 index 6 index 6 index 5 -1 roll widthshow  
  377.         currentpoint
  378.         }
  379.         {
  380.         false charpath currentpoint
  381.         4 index setmatrix stroke
  382.         }ifelse
  383.     grestore
  384.     moveto
  385.     2 copy rmoveto
  386.     } exch cshow
  387. 6 npop
  388. } def
  389.  
  390. % path operators
  391. /sp                    % ax ay string sp -
  392. {
  393.     {
  394.     2 npop (0) exch
  395.     2 copy 0 exch put pop
  396.     false charpath
  397.     2 copy rmoveto
  398.     } exch cshow
  399. 2 npop
  400. } def
  401. /jsp                    % cx cy fillchar ax ay string jsp -
  402. {
  403.     {                    % cx cy fillchar ax ay char 0 0 {proc} -
  404.     2 npop 
  405.     (0) exch 2 copy 0 exch put 
  406.     _sp eq 
  407.         {
  408.         exch 5 index 5 index 5 index 5 -1 roll widthshow  
  409.         }
  410.         {
  411.         false charpath
  412.         }ifelse
  413.     2 copy rmoveto
  414.     } exch cshow
  415. 5 npop
  416. } def
  417.  
  418. % path construction operators
  419. /pl                % x y pl x y
  420. {
  421. transform
  422. 0.25 sub round 0.25 add exch
  423. 0.25 sub round 0.25 add exch
  424. itransform
  425. } def
  426. /setstrokeadjust where
  427.     {
  428.     pop true setstrokeadjust
  429.     /c                % x1 y1 x2 y2 x3 y3 c -
  430.     {
  431.     curveto
  432.     } def
  433.     /C
  434.     /c load def
  435.     /v                % x2 y2 x3 y3 v -
  436.     {
  437.     currentpoint 6 2 roll curveto
  438.     } def
  439.     /V
  440.     /v load def
  441.     /y                % x1 y1 x2 y2 y -
  442.     {
  443.     2 copy curveto
  444.     } def
  445.     /Y
  446.     /y load def
  447.     /l                % x y l -
  448.     {
  449.     lineto
  450.     } def
  451.     /L
  452.     /l load def
  453.     /m                % x y m -
  454.     {
  455.     moveto
  456.     } def
  457.     }
  458.     {%else
  459.     /c
  460.     {
  461.     pl curveto
  462.     } def
  463.     /C
  464.     /c load def
  465.     /v
  466.     {
  467.     currentpoint 6 2 roll pl curveto
  468.     } def
  469.     /V
  470.     /v load def
  471.     /y
  472.     {
  473.     pl 2 copy curveto
  474.     } def
  475.     /Y
  476.     /y load def
  477.     /l
  478.     {
  479.     pl lineto
  480.     } def
  481.     /L
  482.     /l load def
  483.     /m
  484.     {
  485.     pl moveto
  486.     } def
  487.     }ifelse
  488.  
  489. % graphic state operators
  490. /d                    % array phase d -
  491. {
  492. setdash
  493. } def
  494. /cf    {} def            % - cf flatness
  495. /i                    % flatness i -
  496. {
  497. dup 0 eq
  498.     {
  499.     pop cf
  500.     } if
  501. setflat
  502. } def
  503. /j                    % linejoin j -
  504. {
  505. setlinejoin
  506. } def
  507. /J                    % linecap J -
  508. {
  509. setlinecap
  510. } def
  511. /M                    % miterlimit M -
  512. {
  513. setmiterlimit
  514. } def
  515. /w                    % linewidth w -
  516. {
  517. setlinewidth
  518. } def
  519.  
  520. % path painting operators
  521. /H                    % - H -
  522. {} def
  523. /h                    % - h -
  524. {
  525. closepath
  526. } def
  527. /N                    % - N -
  528. {
  529. _pola 0 eq 
  530.     {
  531.     _doClip 1 eq {clip /_doClip 0 ddef} if 
  532.     newpath
  533.     } 
  534.     {
  535.     /CRender {N} ddef
  536.     }ifelse
  537. } def
  538. /n                    % - n -
  539. {N} def
  540. /F                    % - F -
  541. {
  542. _pola 0 eq 
  543.     {
  544.     _doClip 1 eq 
  545.         {
  546.         gsave _pf grestore clip newpath /_lp /none ddef _fc 
  547.         /_doClip 0 ddef
  548.         }
  549.         {
  550.         _pf
  551.         }ifelse
  552.     } 
  553.     {
  554.     /CRender {F} ddef
  555.     }ifelse
  556. } def
  557. /f                    % - f -
  558. {
  559. closepath
  560. F
  561. } def
  562. /S                    % - S -
  563. {
  564. _pola 0 eq 
  565.     {
  566.     _doClip 1 eq 
  567.         {
  568.         gsave _ps grestore clip newpath /_lp /none ddef _sc 
  569.         /_doClip 0 ddef
  570.         }
  571.         {
  572.         _ps
  573.         }ifelse
  574.     } 
  575.     {
  576.     /CRender {S} ddef
  577.     }ifelse
  578. } def
  579. /s                    % - s -
  580. {
  581. closepath
  582. S
  583. } def
  584. /B                    % - B -
  585. {
  586. _pola 0 eq 
  587.     {
  588.     _doClip 1 eq     % F clears _doClip
  589.     gsave F grestore 
  590.         {
  591.         gsave S grestore clip newpath /_lp /none ddef _sc
  592.         /_doClip 0 ddef
  593.         } 
  594.         {
  595.         S
  596.         }ifelse
  597.     }
  598.     {
  599.     /CRender {B} ddef
  600.     }ifelse
  601. } def
  602. /b                    % - b -
  603. {
  604. closepath
  605. B
  606. } def
  607. /W                    % - W -
  608. {
  609. /_doClip 1 ddef
  610. } def
  611. /*                    % - [string] * -
  612. {
  613. count 0 ne 
  614.     {
  615.     dup type (stringtype) eq {pop} if
  616.     } if 
  617. _pola 0 eq {newpath} if
  618. } def
  619.  
  620. % group operators
  621. /u                    % - u -
  622. {} def
  623. /U                    % - U -
  624. {} def
  625. /q                    % - q -
  626. {
  627. _pola 0 eq {gsave} if
  628. } def
  629. /Q                    % - Q -
  630. {
  631. _pola 0 eq {grestore} if
  632. } def
  633. /*u                    % - *u -
  634. {
  635. _pola 1 add /_pola exch ddef
  636. } def
  637. /*U                    % - *U -
  638. {
  639. _pola 1 sub /_pola exch ddef 
  640. _pola 0 eq {CRender} if
  641. } def
  642. /D                    % polarized D -
  643. {pop} def
  644. /*w                    % - *w -
  645. {} def
  646. /*W                    % - *W -
  647. {} def
  648.  
  649. % place operators
  650. /`                    % matrix llx lly urx ury string ` -
  651. {
  652. /_i save ddef
  653. 6 1 roll 4 npop
  654. concat
  655. userdict begin
  656. /showpage {} def
  657. false setoverprint
  658. pop
  659. } def
  660. /~                    % - ~ -
  661. {
  662. end
  663. _i restore
  664. } def
  665.  
  666. % color operators
  667. /O                    % flag O -
  668. {
  669. 0 ne
  670. /_of exch ddef
  671. /_lp /none ddef
  672. } def
  673. /R                    % flag R -
  674. {
  675. 0 ne
  676. /_os exch ddef
  677. /_lp /none ddef
  678. } def
  679. /g                    % gray g -
  680. {
  681. /_gf exch ddef
  682. /_fc
  683. { 
  684. _lp /fill ne
  685.     {
  686.     _of setoverprint
  687.     _gf setgray
  688.     /_lp /fill ddef
  689.     } if
  690. } ddef
  691. /_pf
  692. {
  693. _fc
  694. fill
  695. } ddef
  696. /_psf
  697. {
  698. _fc
  699. ashow
  700. } ddef
  701. /_pjsf
  702. {
  703. _fc
  704. awidthshow
  705. } ddef
  706. /_lp /none ddef
  707. } def
  708. /G                    % gray G -
  709. {
  710. /_gs exch ddef
  711. /_sc
  712. {
  713. _lp /stroke ne
  714.     {
  715.     _os setoverprint
  716.     _gs setgray
  717.     /_lp /stroke ddef
  718.     } if
  719. } ddef
  720. /_ps
  721. {
  722. _sc
  723. stroke
  724. } ddef
  725. /_pss
  726. {
  727. _sc
  728. ss
  729. } ddef
  730. /_pjss
  731. {
  732. _sc
  733. jss
  734. } ddef
  735. /_lp /none ddef
  736. } def
  737. /k                    % cyan magenta yellow black k -
  738. {
  739. _cf astore pop
  740. /_fc
  741. {
  742. _lp /fill ne
  743.     {
  744.     _of setoverprint
  745.     _cf aload pop setcmykcolor
  746.     /_lp /fill ddef
  747.     } if
  748. } ddef
  749. /_pf
  750. {
  751. _fc
  752. fill
  753. } ddef
  754. /_psf
  755. {
  756. _fc
  757. ashow
  758. } ddef
  759. /_pjsf
  760. {
  761. _fc
  762. awidthshow
  763. } ddef
  764. /_lp /none ddef
  765. } def
  766. /K                    % cyan magenta yellow black K -
  767. {
  768. _cs astore pop
  769. /_sc
  770. {
  771. _lp /stroke ne
  772.     {
  773.     _os setoverprint
  774.     _cs aload pop setcmykcolor
  775.     /_lp /stroke ddef
  776.     } if
  777. } ddef
  778. /_ps
  779. {
  780. _sc
  781. stroke
  782. } ddef
  783. /_pss
  784. {
  785. _sc
  786. ss
  787. } ddef
  788. /_pjss
  789. {
  790. _sc
  791. jss
  792. } ddef
  793. /_lp /none ddef
  794. } def
  795. /x                    % cyan magenta yellow black name gray x -
  796. {
  797. /_gf exch ddef
  798. findcmykcustomcolor
  799. /_if exch ddef
  800. /_fc
  801. { 
  802. _lp /fill ne
  803.     {
  804.     _of setoverprint
  805.     _if _gf 1 exch sub setcustomcolor
  806.     /_lp /fill ddef
  807.     } if
  808. } ddef
  809. /_pf
  810. {
  811. _fc
  812. fill
  813. } ddef
  814. /_psf
  815. {
  816. _fc
  817. ashow
  818. } ddef
  819. /_pjsf
  820. {
  821. _fc
  822. awidthshow
  823. } ddef
  824. /_lp /none ddef
  825. } def
  826. /X                    % cyan magenta yellow black name gray X -
  827. {
  828. /_gs exch ddef
  829. findcmykcustomcolor
  830. /_is exch ddef
  831. /_sc
  832. {
  833. _lp /stroke ne
  834.     {
  835.     _os setoverprint
  836.     _is _gs 1 exch sub setcustomcolor
  837.     /_lp /stroke ddef
  838.     } if
  839. } ddef
  840. /_ps
  841. {
  842. _sc
  843. stroke
  844. } ddef
  845. /_pss
  846. {
  847. _sc
  848. ss
  849. } ddef
  850. /_pjss
  851. {
  852. _sc
  853. jss
  854. } ddef
  855. /_lp /none ddef
  856. } def
  857.  
  858. % locked object operator
  859. /A                    % value A -
  860. {
  861. pop
  862. } def
  863.  
  864. currentdict readonly pop end
  865. setpacking
  866.  
  867. % annotate page operator
  868. /annotatepage
  869. {
  870. } def
  871. %%EndResource
  872.  
  873.